home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / functions / toptitle.gf < prev   
Encoding:
Text File  |  1994-02-17  |  215 b   |  11 lines
  1. function toptitle(xl,xr,t1,t2)
  2.   'set vpage off'
  3.   xs=xl+(xr-xl)*0.5
  4.   'set strsiz 0.15'
  5.   'set string 1 c 6'
  6.   'draw string 'xs' 8.25 't1
  7.   'set string 1 c 5'
  8.   'set strsiz 0.10'
  9.   'draw string 'xs' 8.0 't2
  10. return
  11.